with Zapatos;
use Zapatos;

package Estanterias is
	task type TareaEstanteria is
		entry Guardar(ParZapatos: in Zapato);
		entry Quitar(ParZapatos: out Zapato);
	end TareaEstanteria;
	task type TareaEstanteriaInfinita is
		entry Guardar(ParZapatos: in Zapato);
		entry Quitar(ParZapatos: out Zapato);
	end TareaEstanteriaInfinita;
	
	type TareaEstanteria_Ref is access all TareaEstanteria;
	type TareaEstanteriaInfinita_Ref is access all TareaEstanteriaInfinita;

end Estanterias;

